﻿Imports System.Data.OleDb

Public Class TrabajoFinal
    'De la clase Datos, hereda la conexion.
    Inherits Datos


    Public Sub InsertarTrabajoFinal(ByVal nroExpediente As String, ByVal dniAlumno As String _
                        , ByVal NombreTrabajo As String, ByVal dniProfesorGuiaTF As String _
                        , ByVal dniProfesorAsesorTF As String, ByVal fechaTF As DateTime _
                        , ByVal fechaUltimoExamen As DateTime, ByVal planEstudios As String)

        comando.CommandText = "insertTrabajoFinal"
        comando.Parameters.Add(New OleDbParameter("@paramNroExpediente", nroExpediente))
        comando.Parameters.Add(New OleDbParameter("@paramDniAlumno", dniAlumno))
        comando.Parameters.Add(New OleDbParameter("@paramNombreTrabajo", NombreTrabajo))
        comando.Parameters.Add(New OleDbParameter("@paramDniProfesorGuia", dniProfesorGuiaTF))
        comando.Parameters.Add(New OleDbParameter("@paramDniProfesorAsesor", dniProfesorAsesorTF))
        comando.Parameters.Add(New OleDbParameter("@paramFecha", fechaTF))
        comando.Parameters.Add(New OleDbParameter("@paramFechaUltimoExamen", fechaUltimoExamen))
        comando.Parameters.Add(New OleDbParameter("@paramPlanEstudios", planEstudios))

        Me.ejecutarComando()
    End Sub



    Public Sub InsertarNroResolucionTA(ByVal nroResolucionTA As String _
                                    , ByVal nroExpediente As String, ByVal fechaResolucion As DateTime)

        comando.CommandText = "insertNroResolucionTA"
        comando.Parameters.Add(New OleDbParameter("@paramNroResolucion", nroResolucionTA))
        comando.Parameters.Add(New OleDbParameter("@@paramFecha", fechaResolucion))
        comando.Parameters.Add(New OleDbParameter("@paramNroExpediente", nroExpediente))

        Me.ejecutarComando()
    End Sub


    Public Function obtenerTrabajosAprobados(ByVal nroExpediente As String) As DataSet
        Return ObtenerSelect("obtenerTrabajosAprobadosExpediente", "TrabajosAprobadosExpediente", "@paramnroExpediente", nroExpediente)
    End Function



    Public Function obtenerTrabajosAprobados() As DataSet
        Return Me.ObtenerSelect("obtenerTrabajosAprobados", "TrabajosAprobados")
    End Function


    'Sobrecarga de Funcion con parametros de Fecha
    Public Function obtenerTrabajosAprobados(ByVal fechaDesde As DateTime, ByVal fechaHasta As DateTime) As DataSet
        Return ObtenerSelect("obtenerTrabajosAprobadosAño", "TrabajosAprobadosAño", fechaDesde, fechaHasta)
    End Function
End Class
